home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 04 - 1988 / 04.08 Aug 88 / Basic Column Stuff / Runtime demo source / Runtime.demo next >
Encoding:
Text File  |  1988-06-17  |  370 b   |  20 lines  |  [TEXT/TRUE]
  1. ! Runtime Demo
  2.  
  3. LIBRARY "launch*"
  4. CALL AppParms(name$,message,nfiles)
  5. PRINT "Current Application name is:";name$
  6. SELECT CASE message
  7. CASE 0
  8.      PRINT "Files to be opened:"
  9. CASE 1
  10.      PRINT "Files to be printed:"
  11. END SELECT
  12. FOR i=1 to nfiles
  13.     CALL Appfile(i,filename$,"")
  14.     PRINT filename$
  15.     CALL ClrAppFile(i)
  16. NEXT i
  17. if nfiles=0 then print "NONE"
  18. GET KEY k
  19. END
  20.